home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / smtlbox / frmdumy.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-01  |  1.2 KB  |  43 lines
  1. VERSION 2.00
  2. Begin Form frmDummy 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   585
  5.    ClientLeft      =   2415
  6.    ClientTop       =   10845
  7.    ClientWidth     =   7365
  8.    ControlBox      =   0   'False
  9.    Height          =   1275
  10.    KeyPreview      =   -1  'True
  11.    Left            =   2355
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   585
  14.    ScaleWidth      =   7365
  15.    Top             =   10215
  16.    Width           =   7485
  17.    Begin Menu mnuSystemMenu 
  18.       Begin Menu mnu_Move 
  19.          Caption         =   "&Move"
  20.       End
  21.       Begin Menu mnu_Close 
  22.          Caption         =   "&Close Alt+F4"
  23.       End
  24.    End
  25. Dim Focus As Integer
  26. Sub mnu_Close_Click ()
  27. Unload frmMain
  28. End Sub
  29. Sub mnu_Move_Click ()
  30.     Mousepointer = 5
  31.       Dim mpos As POINTAPI
  32.       Dim p As ConvertPOINTAPI
  33.       Dim ret As Integer
  34.       Call GetCursorPos(mpos) ' Get the current position of the cursor
  35.       LSet p = mpos           ' and convert it for SendMessage calls.
  36.       ret = Sendmessage(frmMain.hWnd, WM_LBUTTONUP, 0, p.xy)
  37.     ret = Sendmessage(frmMain.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, p.xy)
  38. End Sub
  39. Sub mnuSystemMenu_Click ()
  40. Focus = True
  41. frmMain!Timer1.Interval = 10
  42. End Sub
  43.